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1. Introduction 

Visual Basic implements graphical user interface that allows the use of 
graphics for different applications. It provides visual interactive windows 
with user, like Dialogue box for (color, font ...), Input box, and Output box. 
Also it is able to create menu to simplify user application. 


To run this program on user computer: 
Start>programs>Microsoft Visual Studio 6.0>Microsoft Visual Basic 6.0. 


It will appear on the computer screen as in the following picture. 
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To exit from Visual Basic and return to Windows is like exit from most 
Windows applications. There are three ways to close the Visual Basic as 
stated below. 

1- Click on close button icon that appears in the upper-left corner of the 
screen. 


2- Press Alt+F4 
3- Select File >Exit 


1.2-The Importance of Visual Basic Program 


Languages like Basic and Pascal depend on variables and procedures to 
build the applications .This is why it is called procedural languages. The 
new approach is called object programming for visual programs like Visual 
Basic and Visual C++ and others. In this programming approach every thing 
(form, command buttons, controls) is an object. 


The reasons for of implementing Visual Basic program are listed as 
follows: 
1- It uses integrated development environment (IDE) which is easier for 
the user to minimize code writing. 


2- All visual programs follow the same concepts, therefore the user will 
become more familiar with visual approach for other visual languages. 

3- It provides Input box and Output box as an interactive windows with 
user. 

4- Itis able to connect to Internet, and to call Explorer. 


1.3- Elements of the Integrated Development Environment (IDE) 


The IDE environment consists of many elements. Some elements are 
displayed when Visual Basic is started (By default) as in the following 
figure. Other elements are displayed if the user requires them. We will list 
some of these elements. 
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a- Menu Bar: It contains a standard command like: File, Edit, View, 
Window, Help menus, and specific command such as: Project, Format, or 
Debug menus. 


b- Toolbar: it contains the most commonly used commands (button), if 
clicked an action represented by that button is carried out. 


c- ToolBox: it contains a collection of tools that are needed for project 
design. 


d- form Designer: it is a window for each form to customize the designed 
interface of the application. Using the form designer, the user can add 
controls, graphics, and text to create the desired form appearance. 


e- Properties Window: it is a List of properties settings for a selected form or 
a control. These properties are characteristics (such as size, visible, or color) 
of the selected object it provides an easy way to set properties. 


f- Project Explorer Window: it is a list of the forms and modules for the 
current projects. It is a hierarchical tree- branch structure, where the 
project at top of tree and other parts like forms ,modules) descend from 
this tree. 


g- Form Layout Window: The Form Layout window is a small screen. 
Which is used to reposition the form of the application so that it appears 
in proper place when project is run. 


h- Code Editor Window: Code Editor Window is used to write a VB code 
for an application. For each form there is a separate code editor window. 
It is displayed when user clicks on form or object in form. 
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Private Sub Text Change () 
text:.BackColor 
End Sub 


To Create an Application 


The title of program includes the name of project, and when the user first 
starts the program it takes a defaulted value (projectl).It also includes resize 


icons. The following steps are required to create an application in Visual 
Basic 6.0: 


1- Select type of project New or Exciting. A form automatically appears in 
the form design .The basis for any application's interface is the form 
that user should create. User can add other forms to the project (to add 


another form select project menu>add form). 
2. To add objects (controls) to the form use the ToolBox. 
3. Set the properties for the objects through properties window. 


Write code. The Visual Basic Code consists of statements, and 
declarations. 


The code for an application can be written on the Code Editor window. 


In this window user can view and edit quickly any of the code. 
5. Run the Application. To run the application, click the Start button on 
the toolbar, or press F5. 


click on stop button in tool bar. 

Check if there is an error, return to step 3 ,otherwise continue. 
Save project. 

Exit. 
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Exercises 
1-Define the following parameters: 
a-Toolbar. 
b-ToolBox. 
c-Form designer, 
d-form layout. 
e-project window, 
f-properties window. 
i- code editor window,,. 


2- Explain the advantage of the Visual Basic program. 


Stop. To stop running the application and return to visual basic program 


Project 
Project is a program designed to user application that may be simple 


(like calculator program) or complex (like word program). Visual basic 
program can create many types of projects. The most important or usual 
project is the standard project (for window applications) and the DHTML 
project (for internet). 


Working with Standard Projects: 
The following working steps (create, save, add, open and delete) 
could be done: 


a) To create project: 

When program starts, project box appears-select Standard EXE > 
Project window appears. 
OR: File> New project> Box (select Standard EXE)> Project window 
appears 
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b) To add project: Any number can be added. 
Project icon> Select Standard EXE> Project window appears. 


Note: Usually first project runs first, but user can change that by: 
Selecting project from project window > mouse list > Set as startup. 


c) To open an existing project: 

It is previously designed and saved on disc in a folder. 

File> Open project> Box (select existing and look for the project) > 
Project window 


d) To delete a project: 
Select project in Project window > Mouse list > Remove project. 


e) To save project: 
The visual basic can save the project on disc in two ways, as an 
executable type or a non- executable type. 


I- for project in non execution stage: 
There are many types of files summarized as follows: 


1- Project file: it consists of all files which are related to specific project, 
also some other information with it. This could be saved with extension 
(.VBP) 


2- The form Files: this contains form description and any Object or 
program related to it .This is saved with extension (.frm). 


To save project for first time: 
File>Save project (group) as>Box (project name)> forms saved then 
projects group saved. 


To resave project: to save previously saved project in same place 
File>save project (group) 


Note: If a form is modified it should be saved. To save a form: 
Select a form from Project window>File>Save project form1 as > Save 
box (select form name). OR: File>Save project forml. 


II- project for execution: This is the final stage so that it could be opened 
and run by Windows and no need for Visual Basic program. File> Make 
project.exe. 


Action steps Remarks 
File>New project The user can open any number of 
projects. 
File>Open project Project was already designed and 
saved. 
Recent File>Open project Project was recently designed and 
saved. 
Save project File>Save project group | Visual Basic can deal with it (open 
as and modify). 
File>Make projectl.exe |For execution by window. 
Delete project File> Remove project __|Select project before remove. 


Forms 

1) Introduction to form 

The form is the most important visible object,without it no control can be 
displayed. It is a window that can be designed and modified to fit user 
applications. In the standard project the form Designer creates and 
modifies visual forms .When user starts visual Basic program a form is 
automatically displayed in Designer window. The designer can add any 
number of forms to the project of his application by pressing: add form 
from project menu. 
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There are two modes: design mode and running mode. User can 
interchange between them, by pressing on start icon » orstopicon 
on tool bar. 


‘= Project1 - Form’ (Form) Ce) 
= Form1 Ce) 


The forms also have properties and events. 


2) Form properties 
Properties list has a predefined value (numeric or string) and could 
be changed, some properties could be rewritten like caption, and some 
could be selected from option list by pressing on down arrow on the side. 
Others could be rewritten or by browsing the computer files when 
the user clicks on the dotted button on the right side a dialogue box 
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appears. The browsing button appears when the user clicks inside the 


box. 


The most important properties of the form are listed in the following 


table: 


Property 
name 
Name 


Caption 
Backcolor 
Forecolor 
Font 


borderstyle 


Enabled 
Min button 
Max button 


Start up 
position 


movable 


Hide 
show 
icon 


Objective code 


Used to represent name of form 
in code 


String appear in title of form Form, o,.caption= "any name" 
Background color for form. Formyo,.Backcolor=Qbcolor(no.) 
Color of text written on form. — |ForMyo..forecolor=Qbcolor(no.) 


Font style, type and size. 


Size: Form, ..fontsize= no. 


Style: ae | 


Type: Form1.FontName = "arial" 


italic 
bold 


underline 


0-None borderless and 

captionless 

1-Fixed Single a nonresizable 

form 

2-Sizable (default), creates a 

resizable window, 

3-Fixed Dialog: nonresizable 

form without Minimize and 

Maximize buttons 

4-Fixed Tool window for a 

floating toolbox like form, 

5-Sizable Tool window 

Formyo,. Enabled =true or false 
=true. The Minimize and Form1.MaxButton = True or 
Maximize buttons are enabled. = false 
=false. The Minimize and Form1.MinButton = True or 
Maximize button are disabled. = false 

0- Manual ,use form layer 

window to position Form 


1- Center owner 


2- at Center Screen 
3- Windowdefault. 


movable or unmovable 
Tohidetheform ————_[Formao.hide 
To show the form | Formyo,.Show 


Stage of 


Changing 


Design 


Design and run 


Design and run 


Design and run 


Design and run 


Design 


Design and run 


Run 


Design 


Design 


Run 
Run 


Change the icon on title bar of form (the icon must have the extension ico or cur) 


3) Code form 

The code is written in code Form and it will be edited quickly by 
code editor .The codes are of two categories: 
1- Declaration is written before any procedure in the code 
2- Statements. The user selects the required event then code statements 
are written inside these event procedures. 
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5) Events: 

Events are like electrical switches. The electrical switches are of 
many types, so are the events. 

The forms and controls support events (generation, interaction with 
mouse and keyboard). The most important events for the form are 
described in the following table. 


Action taken when 
Single click on object. 
Double click on object. 
Loading the object 


Examples: 
1- Design a form such that: in event load, when project runs, the form 
backcolor property changed (chose any color). 
sol: form! 
code: 
Private Sub Form _Load() 
Form1.BackColor = QBColor(12) 
End Sub 


2- Design a form such that: in event click on form, when project runs, the 
title of the form changed to applied science. 


= applied science 


Exercises: 

Q1/ Design a standard project has three forms with backcolors red, blue 
and green. 

Q2/ design a standard project that has one form change the name from 
form] to "students" 

Q3/ Create a standard project with one form the name of the project 
"market seals" and the name of the form "stock markets" and save project 
on desktop with name marketing .exe 

Q4/ Design a standard project with four forms when running project all 
forms appear on screen Note :use this code in form] (form1.show, 
form2.show, form3.show, form4.show) 
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Toolbox 
It is a window box that contains tools which could be used in the 

project. Tools are objects that could be selected from Toolbox to be placed 
on form. To show the toolbox, Press toolbox icon > the toolb« 3% ippear 
as in the following diagram. 
The toolbox includes many tools and in general they are: 
1) Pointer (not control) of} sed to select tools already on form 
2) Picture box fms} : Used to display images in any of the following 

formats: BMP, DIB (bitmap), ICO (icon), CUR (cursor), WMF 


(metafile), EMF (enhanced metafile), GIF, and JPEG. 


3) Label A Fixed text appears on form for remark. 

4) Textbox [abl For text edit .Like note pad. 

5) Frame {| To group tools together (container). 

6) Command button | Jj Used as a switch (such as OK and Cancel) buttons. Code 


is written in the Click event procedure of this control 

7) Check box fi For a yes/ no (true /false) selection. 

8) Option button » : For selection as group. Many options are placed inside 
container (grouped) (a Frame control). One control is selected from the group all 
others of the group are automatically deselected. 

9) Combo box -onsists of (list and arrow when clicked a small a list appears), 
if user selects item from the list, it will be displayed in TextBox. Vertical size is 
fixed. 

10) List box fg For a list, user adds to and deletes from this list. It takes any size. 

11) Horizontal Scrollbar 4, Create stand-alone Horizontal scroll bars. 

12) Vertical Scrollbar = Create stand-alone vertical scroll bars. 

13) Timer Used to control object movement. 


14) Drive List Box (jt is a special ListBox filled automatically with names, of the 
files in a specified directory. It is a list invariant. 

15) Dir List Box (js a special ListBox filled with drives (Hard disc, Flopy, CD) 
in the system. It is an invariant. 

16) File List Box [t is a special ListBox filled automatically with the names of all 
DirListBox. It is aiist invariant. 

17) Shape [4] Used only to display rectangles, circles, and ovals on the forms. Never 
raises any events 

18) Line ~._Jsed only to display lines on the forms. It never raises any events. 

19) Image : Used instead of PictureBox because it consumes fewer system 
resources. 

20) Data used for data base. 


21) OLE ‘fq used for joining with another programs. 
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Tool Box and Form 

The user can place the tool on form and then work with the tool. To place the 
tool on form: 

Click on tool >Draw tool to Form> the tool appears on Form. 
Or: double click on it. 


Notes: 

a) Each tool has a property window .To see this window: Click on tool on form> 
Property window appears. 

b) Property can be changed manually or by code and the effect of code appears in the 
run time (when user runs project). 

c) To put code for tool action: 

Double click on tool > code sheet of the Form appears (with code of corresponding 
tool is written) > User write the desired code inside tool event, or outside in Form 
event. 


Working With Tools 
The user can work with tool in the design stage. 

- To add tool: double click on tool. Tool appears on form or drags it to design 
part of page and draw it in the desired size. 

- To delete: click on element in page> press delete key of the key board or right 
click on object for mouse list> choose delete. 

- To display tool properties window: click on element> properties window 
appear. 

- To display code form: double click on tool code form for that element. 


Label: 


Ex) 


= Form! 
It is used to display fixed text on form 


ETORCUY Objective Code Stage of Changing 
name SS 
Caption _|String appear on label label,,...caption= "any name" Design and run 
Autosize _|To resize tool to fit text label,o..autosize= true or false Design and run 
Backcolor |Background color for label _|labelyo..Backcolor=Qbcolor(no.) |Design and run 
Forecolor |Color of text written on label |label,,.forecolor=Qbcolor(no.) {Design and run 
Font Font style, type and size Size: labelno..fontsize= no. Design and run 
italic 
Style: font bold 
underline 
Type: label.FontName = "arial" 
visible The label appear — or|Label,o.visible= true or false Design and run 
disappear 
Enabled _ |The label enable or disable. {label ,... Enabled =true or false {Design and run 


Note: The available color numbers that used with QBcolor is the integers 0 to 15 only. 
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Example: Design a form contains label ''4:4:54)) a 921)" in size 14. 
Sol: the properties are: 


Labell 


caption | Applied science 


fontsize | 14 


= Project? - Form? (Form y -|5j xj Properties - Label? xd 
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+ - Manual 
True 
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Caption 
Returns/sets the text displayed in an 
object's title bar or below an object's icon. 


</ ———— i” =! 
= —— 
ix a a | 
Font: Font style: Si Alphabetic | categorized ] 
| MS Sans Serif | Regular 


MS Serif Italic 
MS SystemEx Bold 
Ff MT Extra Bold Italic 
- Music 
MusicalSymbols 
 Narkisim na| 
+ - Manual 
Effects ~ Sample True 
I~ Strikeout MS Sans Serif 
I~ Underline AaBb 5 oa sl ooeee 
Script: Returns a Font object. 
[Arabic pu ] 
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Textbox 

The textbox is a box for entering and displaying text (characters or values) in 
user project. This tool is used frequently in most of the application. The textbox has 
property window, with no caption, but with space for text. The most important 


property of this tool is the text content which is described in the following: 


BT OBERSY, Objective Code plat : 

name Changing 
Text String appear on textbox text po. text = "any name" Design and run 
multiline To enter more than one line true or false Design 
Backcolor Background color for textbox. _|text no..Backcolor=Qbcolor(no.) |Design and run 
Forecolor Color of text written on textbox. |text »o,.forecolor=Qbcolor(no.) | |Design and run 
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Font Font style, type and size. Size: text no,.fontsize= no. Design and run 
italic 
Style: font) bold 


underline 


Type: label.FontName = "arial" 


visible The textbox appear or disappear |text ,o.visible= true or false Design and run 


Enabled The textbox enable or disable. |text ,,... Enabled =true or false Design and run 
passwordchar |A row of symbols appear Design and run 
instead of letters 
Setfocus Put the focus on the specified|Text,,.setfocus Run 
textbox 


Change text manually: change text property from property window, click 
inside textbox and add text. 
15) x! 


Properties - Text 


Text1 TextBox = ] 


Alphabetic | Categorized | 


MultiLine False 
OLEDragMode 0 - Manual 
IOLEDropMode 0 - None 


False 

0 - None 
0 

True 


Text1 


600 
True 


1- Textl.text="_" 

2- Textl.text="U=i" 

3-Text].text=text2.text 

4- Text1.text=label1 .caption 

5- Text1.text = inputbox ("U='") 

Example: Design a form to enter username and password such that the title of the 


form is VB. 


Sol: design stage 


Form1 
caption V.B 
Textl 
text 
Text2 
Text 
Label] 
caption username 
Label2 
caption password 
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Example: Design a form with one textbox, set the text properties so that this massage 


appears when project runs (welcome to visual basic world). 


Sol: There are two methods: 
First method: changing property by code: 


Private Sub Form_Load() 
Textl.Text = "welcome to visual basic world" 


End Sub 


Second method: by properties window 


Textl 
text Welcome to visual basic world 
Petes 


Running stage 


Textl —_——_»> welcome to visual 


basic world 


Command button 

It acts as a switch. To deal with tool property> click on command button> property 
window appear> change setting of any desired property. Usually change set its 
caption property to a suitable string. 

To make the button functional, the user should add some code. To do this: click on 
command tool> code form appears with click event procedure. Write code in this 


event or other events like press key event. 


Fl Project! - Form’ (Code) 


Command¢t >| |Click >| 
| | private Sub Command1_Click() 
Write code here [ 
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The most familiar properties that are needed for the command button are stated in the 


table below. 
BU erEy. Objective Code Stage of Changing 
name 
Caption _|String appear on command _|command,.,..caption="any name" |Design and run 
style Determine the style  of|1l-graphical Design 
command 0-standard 
Backcolor |Background color for]|command,y ,.Backcolor=Qbcolor(|Design and run 
command no.) 
Forecolor |Color of text written on|command)y ..forecolor=Qbcolor( |Design and run 
command no.) 
Font Font style, type and size Size: command,,,.fontsize= no. |Design and run 
: italic 
Style: font bold 
underline 
Type: command, .FontName = 
"arial" 
visible The command appear or|command, .visible= true or false |Design and run 
disappear 
Enabled |The command enable or/command,.. Enabled =true or|Design and run 
disable. false 


Example: Design a form with label, such that when click on the command button 


"name" 


sol: 


your name appears on label (at running stage). 


Labell jw form) TI) 


caption 


Labell ~~ |——— 


Command 1 


caption 


name 


Private 


Command! ———> 


Sub Command 1_Click(Q) 


Labell.Caption = "Ahmad" 
End Sub 


Example: Design a form to appear your name and department in textbox, when click 


on command button "name" and "department" respectively so that you can clear these 


informations when click on command "clear" and stop project when click on 


command "exit". 
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Command1 : | 7 Command2 


Command3 i < Command4 


text 


caption 


caption department 


Command3 


caption Clear 


Command4 


caption exit 


Private Sub Command1_Click() 
Textl.text="Muna" 
End Sub 


Private Sub Command2_Click() 
Text1.text="Science" 
End Sub 


Private Sub Command3_Click() 
Textl.text="'" 
End Sub 


Private Sub Command4_Click() 
end 
End Sub 


Example: Design a form contains two textbox so that when click on command button 
"copy" the text copied from first textbox to the second textbox but in size (28). 


Sol: 


Textl 


text 


Text2 


Text 


Command1 
caption copy 
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Private Sub Command1_Click() 
Text2.Text = Text1.Text 
Text2.FontSize = 28 

End Sub 


At run stage this window appear 


If the user enter by example the text (ABC) in first textbox and click on 


command (copy) the same text appear on the second textbox but in size 28. 


fa fom SE 


ABC 


Exercise: 
1- Design a form to display your name in specific color and size. 


2- Write the following design steps with details 


= Form’ 
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Shape: Shape is a tool used to draw geometric shape (circle, rectangle, square ,etc). It 
has property window. It has no events like other tools (such as click, dblclick, etc.). 


TLODETLY Objective Stage of Changing 
name 
shape To determine a specific shape: Design and run 


4-rounded rectangle 


5-rounded square 


1-opaque 
backstyle changed to value 1-opaque 


bordercolor |Colored the Border of shape Design and run 


Example: Design a form contains a specific shape then write the name of this shape 


on form. 
alo x! 
Labell 


caption Shapel 


circle Labell 


List box: The user can't write directly in ListBox . He can add item to the ListBox 
property or by code in the form. 


Property name Objective and code 

sorted True , to sort the elements alphabetically 
False , elements without sort. 

Style To determine the style of list: 
0-standard 
1-checkbox 

Clear list To clear all elements of the list: 
List, .Clear 

Add items to list: 
a) Change property list from properties window. When click on arrow, write 
items (elements). : 
wm Project! - Form1 (Form) fists ListBox | 


Alphabetic | Categorized | 


Font MS Sans Serif 


BB sxHsoo000008e 
0 
ru 
ist 


iMouseIcon 
Mow isePoinl 
List 


Returns/sets the it} 
list portion. 


b) Add elements by code using the property additem as follows:: 
Listy .additem ("first element ") 
Listy .additem ("second element ") 


Listyo.additem ("last element") 


Example: Design a form contains label to display your department and two command 
buttons "show" and "hide" such that when click on command1, form2 appears and 
when click on command?2, form2 disappears. In form2 design a list to contain the 
name of departments branches which appears after click on command. button 
"display". 


Form1 
Labell: caption="applied science" 
Command1: caption="show" 
Command?2: caption="hide" 


Form2 
Command1: caption="display" 


List]: list= ¢J Listl 


Comman 


Fm Project! - Form1 (Code) Sy =e | 


Private Sub Commandi_Click() 
Form2 .Show 

End Sub 

Private Sub Command2 Click() 
Forme .Hide 

End Sub 


|Commanet | [click | 


Private Sub Command1l Click{) 
Listi.AddItem ")j. U1" 

Listi. AddItem "diinibit! Lyi" 
Listi.AddItem "SLL JI" 
List1.AddItem "olgti" 


Listil.AddItem "G5L-9! Dbl! sli" 
Listi. AddItem "+s" 


End Sub 
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Example: Design a form contains a sorted list alphabetically such that the user can 
add the item from text to the list after click on command button "add". 


Sol: 


command 1 


rex |_| 


Private Sub Command1_ClickQ) 
listl. AddItem (Text1.Text) 
TextLvext=" ” 

End Sub 


Option button: Used only as a group of buttons. When the user selects one of them 
the others are deselected automatically. 

All other properties of this control are similar to those in form and command 
button where they are fully discussed which are caption, font, enabled, backcolor and 
visible beside an important property which is value that takes true or false and it used 
with if statement. The option button usually takes click event. 

Example: Design a form with three option buttons " red", " green " and " blue " 
such that when we click on options the color of the form colored by red, green and 


blue respectively. 
SZ ici xi 


optionl:caption | green 
option2: caption | blue 
option3: caption | red 


Private Sub Option1_Click() 
Form1.BackColor = vbGreen 
End Sub 


Private Sub Option2_Click() 
Form1!.BackColor = vbBlue 
End Sub 


Private Sub Option3_Click() 
Form1.BackColor = vbRed 
End Sub 
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Check box: 

Any number of check boxes can be used on a form. They work independently. 
Its Property value could be changed in design stage manually, or in running stage by 
code. 


Run and click 
im. Fo. ealel ies 


iv 


Example: Design a form with one text box and three check boxes such that when 
click on boxes the following is done: change typing to bold, italic, underline. 


Sol: 
Textl 

Text Sat 

Checki —_ 
caption Bold 

Check2 Check1 
caption Italic Check2 

Check3 
caption underline Check3 


Private Sub Check1_ClickQ) 
Textl.FontBold = Check1.Value 

End Sub 

Private Sub Check2_Click() 
Text1.FontItalic = Check2. Value 

End Sub 

Private Sub Check3_Click() 
Text1.FontUnderline = Check3.Value 
End Sub 


Run stage: 


ia. Form | / ia. Form > /0/x) 


a v 
a 1 | 
Vv a 
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Timer 
Timer returns the time in millisecond. It may be used to measure execution time of 
code (program efficiency). 


Property name Objective and code 


interval To repeat the code according to event. It takes an 
integer values (0-65535) and measured in millisecond 


enabled timefno,. Enabled =true or false | 


Ex: design electronic clock to display the time in seconds. 
sol: 


Timer] 


interval 1000 


Labell 


Caption 


Private Sub Timer1_Timer() 
Labell.Caption = Time 


End Sub lolx 


05:29:20 » 


Example: Design a form to display "applied science" such that when click on 
command button "start" the color of "applied science" changed randomly every 
second. 


Sol: 


Timer! 


interval 1000 


enabled false - (5) x| 


Labell 


Caption aslal 


Command1 


caption lash Teel 


Private Sub Command1_Click() 
Timer!.Enabled = True 

End Sub 

Private Sub Timer1_Timer() 

t= Rnd * 15 

Label1l.ForeColor = QBColor(CInt(t)) 


Command 
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End Sub 

Run stage: 

When click on command button i! the color of the font will be changed every second 
randomly in integer no. (0-15). 


Cicm 101 x) 


Tibial ¢ glall 
Note: the function (Cint) used to convert to integer no. 
And (Rnd) used to generate a random no. in a range (0-1) 


Input - output boxes 

There are two types of dialog boxes which are inputbox and messagebox. The first is 
used to input variable and the second to output variable or message. Both needs code 
and appear at run time. 


a) Inputbox 

Inputbox used to input value or characters for one variable from keyboard at running 
stage. 

This box needs a code in code sheet and could be written in any event or command 
X=inputbox(" prompt or remark", "title") 


x 
Cancel | 
I 


Example: enter value of x using inputbox 


Sol: I x 
enter value of x 
«FF 


Private Sub Form_Load() 
X=Inputbox("enter value of x", "calculation") 
End Sub 


25 


Message box 
It is used to output a message to the user (at running stage) the code needed could be 
written in code sheet and in any event or command. 


The available icons for message box 


structure value icon 
vbcritical 16 x} 
vbquestion 32 2) 
vbexclamation 48 AN 
vbinformation 64 Ci) 


The available commands for message box 


structure value Commands 
Vbokonly 0 Ok 
Vbokcancel 1 Ok, Cancel 
vbAbortRetryIgnor 2 Abort, Retry, Ignore 
vb YesNoCancel 3 Yes, No, Cancel 
vbYesNo 4 Yes, No 
vbRetryCancel 5 Retry, Cancel 


For example if we write the following statement then a message box will be appear as 
shown below 


MsgBox "please close your program", 16, "Error" 


or 
MsgBox "please close your program", vbcritical, "Error" 


Ts 8 + 


€ please close your program 


Example: show what appear after running the following statement 
MsgBox "are you sure you want to delete this file", 32 + 4, "delete" 


or 
MsgBox "are you sure you want to delete this file", vbQuestion+vbYesNo,'"delete" 


Sol: x 


9 are you sure you want to delete this file 


Example: write a program to move the text (excellent) from textbox to message box 
and change the color of the text after click on command button (display). 
Sol: 


Textl: text="excellent" 


Command 1: caption="U2 ¢" 


Private Sub Command1_ClickQ) 
MsgBox (Text1.Text) 
Text1.BackColor = QBColor(9) 
TextL, Text =" 

End Sub 


Or we can write the following code: 


Private Sub Command1_Click() 
X= Text].Text 

MsgBox (X) 

Text1.BackColor = QBColor(9) 
Text].Text =" " 

End Sub 
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Exercises 

Q1/design a form contains specific title such that when we click on command] the 
color of the font will change and we click on command? the size of the font will be 
change. 


Q2\design a form contains shape and command buttons "what is this" such that when 
click on the command button the name of this shape appears in message box. 


Q3/enter a text in labell such that this text copied to label2 after click on command 
button "copy" and delete from label2 after click on command button "delete". 


Q4/ design a form contain command button such that when we click on command, 
form2 will be appear and form1 will be disappear. 


Q5/design a form "at run stage" the title of form1 will be change to "visual basic" and 
the back color of form1 will change too. 


Q6/design a form with two shapes, red and blue ,write code to replace the color every 
between two shapes. 


Q7/ design a form contain list box and two command buttons: 


1- add: to add the element to the list from input box 
2- delete: to delete the list elements 
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Visual basic statements 
In visual basic program (code) there are four basic parts, i.e. it is contains 
the following statements: 

1- Declaration of variables and constants 

2- Inputting variables 

3- Operators for variables 

4- Outputting variables 


1- Declaration of a variable and constants 
The declaration means defining the data type (variable or constant). 


e Variables 
A variable is a space in memory filled with data (value, character, time 
or date). 


Notes: 

- Variable name must start with character (not number or function) and 
maximum length 256 character, and does not contain point or symbol. 

- Variable name must not repeat for other values. 


The variable has to be declared. Variable type is defined by its content .The 
content may be data as numeric or character or string or Boolean or date, or 
any type of data (called variant), these types declared as: 


Dim variable name as type 
Or 
Global variable name as type 


Note: The Dim declaration written in general part of the form or in any 
place in form or sub procedure which used for one form. While Global 


declaration used for all forms 


The types of variables that are allowed in visual basic are stated in the table 
below. 


Types of variables 


Type Value range Declaration 
1-Integer -32768<x<32768 Dim x as integer 
2-Long -2.1 e+009<x<2.1 e+009 | Dim x as long 
3-Single 1.4e-045 <|x|<3.4e+038 Dim x as single 
4-Double 4.9e-324<x<1.79e+308 Dim x as double 
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5-String 65535 characters Dim x as string 


6-Boolean True or false Dim x as Boolean 


7-Date Computer time and date Dim x as date 
Jan 100<x< 31 Dec 9999 


e Constants 
It is a space in memory filled with fixed value that will not be changed. 
Constant may be declared as: 


Const constant name = value 


Example: Declare x as a constant (P), then compute the area of a circle. Put 
suitable design. 


Sol: 
= Area of circle (|i) 

Form] 

caption Area of a circle 
labell 

Caption radius 
Textl 

text 225 
Command1 
caption compute 
Enabled false 


code stage: 


m Area of circle 


Const p = 3.14159 
Dim a, r As Single 

radius 
Private Sub Text1_Change() 
Command1.Enabled = True 
End Sub 


Private Sub Command 1_Click() 
r= Val (Text1.Text) 
a=? p 

MsgBox ("area=" & a) 

Text). Text="" 
Text1l.SetFocus 

End Sub 
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2- Inputting variables 


There are methods to input variable x as stated in the following: 


Method of input 


For all type of variable 


In text tool 


X=text,,.text 


In input box 


X=inputbox("prompt","title") 


Note: To enter many variables we usually use the second method with loop. 


3- Operators for variables 


The operators that are used for variable are described in the following 


table 
EB addition 
: subtraction 
Arithmetic operators : multiplication 
/ division 
mod Modulus —rest of division 
‘ exponent 
= equal 
< Less than 
= Less or equal 
a ua Greater than 
>= Greater or equal 
S7 Not equal 


Note: The order of operations when executing arithmetic operation is: 


Exponentiation - multiplication division and mod - finally addition and 


subtraction. 


The mathematical representation must be written as visual basic 
representation in the code as following examples: 


Mathematical representation Programming representation 
3(x+4y) 3*(x+4*y) 
X*4+4+2 X424+4/2 
4/16 +3° +10-5x4+3? —23 164 (1/4) +343 +10 —(5*4)/3%2 —243 

E as (5*y)/(x42-4)+x-1 
x -4 

ee Exp(2*x)/(cos(2*x)+sin(x)) 

cos(2x) + sin(x) 
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Assignment statement 
There are many statements ways to fill a variable as follows: 
Variable = expression 


Expression may include variables, operations and functions as follows: 
1- Numerical variable. For example: 1=3 
2- Mathematical relation. For example: x=a/b 
3- Characters variable (string). For example: t="abc" 
4- Boolean variable (logical). For example: p=true 


Functions for variables 

The numeric and string variables are the most common used variables 
in programming, therefore V.B provides the user with many functions to be 
used with a variable to perform certain operations or type convention. The 
most common functions for numerical variable x 


Function Description 

Abs(x) Absolute of x 

Sqr(x) Square root of x 

Int(x) Integer of x 

Exp(x) Exponential of x (e") 

Fix(x) Take the integer part 

Sin(x), cos(x), tan(x) Trigonometric functions 

Log(x) Natural logarithms 

Len(x) Number of character of variable x 
Lcase(x) Change the text x to small letters 
Ucase(x) Change the text x to capital letters 
Cint(x) Convert x to integer 

Clong(x) Convert x to long integer 

Cdbl(x) Convert x to double precision 
Cstr(x) Convert variable x to string 
Val(x) Convert string x to numerical variable 


Note: the last five functions are called conversion functions. 


The following functions for different x are given for comparison. 


Function output 
X=Icase("MY NAME IS") my name is 
X=ucase("my name is") MY NAME IS 
int(2.5) 2 
Int(-2.5) -3 
Fix(2.5) 2 
Fix(-2.5) -2 
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4- Outputting variables 
There are methods to output variable x as stated in the following: 


Method of output For all type of variable 


On form Print x 
Note: in load event we must use the statement: 
(form! .show) 


to text tool teXtyo.text =X 
to label tool Label,,.caption=x 
By message box msgbox (x) 


Or msgbox ("remark"& x) 


The instruction print could be very helpful to display data and used as 
follows: 


Code Description example 


print To leave one line and 
print on next 


Print "a", "b",""c" | Use (,) to print a distance | a b c 
between outputs 


Print "a"; ""b";"c" | Use (;) to print the abc 
outputs adjacent 

Print "a","b"; Print a, b then print c on | abc 

Print "c" the same line 


Example: write a program to enter any text and compute its length. Put 
suitable design. 
Sol: 


Design stage: 


Form] “ 

Caption String length ete AEnEU! = \fE\x) 

es - length= ini 

caption Click here | a 
Labell 

Caption Length= 
Textl 

Text 
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Code stage: 
Dim s As String 


Private Sub Command1_Click() 
s = InputBox("inter string") 

L = Len(s) 

Textl.Text = CStr(L) 

End Sub 


Running stage: 
ia, string length ~ =/01 x) 


Project 


happy new year 2008 


Example2: write a program to add and subtract two integer numbers after 
putting a suitable design. Use message box for outputting. 


Design stage: 


form 
caption calculator 
Command1 
caption + 
Command2 
Caption - 
Labell 
Caption Enter no.1 
Label2 
Caption Enter no.2 


text + @ Lf textl, text2 Jed4 
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Code stage: 

Dim x, y, z as integer 

Private sub command1_click () 
X=val(text1.text) 
Y=val(text2.text) 

Z=xX + y 

Msgbox("addition result="&z) 
End sub 


Private sub command?2_click () 
X=val(text1.text) 
Y=val(text2.text) 

Z=X - y 

Msgbox("subtraction result="&z) 
End sub 


Running stage 
Enter two values in text] and text2. When click on command (+) or (-) the 


addition or subtraction result appears in message box. 


™ calculator 


enter no.1 


enter no.2 


Project (x] 


following design. 


Labell +(e sscscaecee ee 
Label2 eel 
Label3 ein 
iippnennt ipa Pee ees Csacenua 
octane Command5 


Code stage: 

Dim a,b, c as single 

Private sub command1_click () 
a=val(text1.text) 
b=val(text2.text) 

c=a+b 

End sub 
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Private sub command2_click () 
a=val(text].text) 
b=val(text2.text) 

c=a -b 

End sub 


Private sub command3_click () 
a=val(text].text) 
b=val(text2.text) 

c=a * b 

End sub 


Private sub command4_click () 
a=val(text].text) 
b=val(text2.text) 

c=a/b 

End sub 


Private sub command5_click () 
Text3.text=cstr(c) 
End sub 


Private sub command6_click () 
Textil text="" 

Text2.text="'" 

Text3.text="'" 

End sub 


Example4: write a program to compute the functions: sine, cosine, integer 
value, square, absolute value. 
sol: 


Design stage: Big oe PS SEL SO ee teh age ee oe 
Dim x, y As Single ed oo 
Private Sub command1_click() [3 
x = Val(Text1.Text) 

y = Abs(x) 
Text1.Text = CStr(y) 
End Sub 


Private Sub Command2_Click() 
x = Val(Text1.Text) 

y = Sqr(x) 

Text1.Text = CStr(y) 

End Sub 
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Private Sub Command3_Click() 
x = Val(Text1.Text) 

y = Int(x) 

Text1.Text = CStr(y) 

End Sub 


Private Sub Command4_Click() 
x = Val(Text1.Text) 

y = Sin(x * 3.14159 / 180) 
Text1.Text = CStr(y) 

End Sub 


Private Sub Command5_Click() 
x = Val(Text1.Text) 

y = Cos(x * 3.14159 / 180) 
Text1.Text = CStr(y) 

End Sub 


Running stage 


at} | of of of Es] J | a 


a 


Q1/ Write a Program to compute the area of triangle with design. 


Q2/Write a program to enter the name of a student and two marks of any 
subject by input box then computes the average and display the name and 
average in two labels. 


Q3/ Write a program to enter a real number then find its square after putting 
suitable design. 


Q4/ Design a project with three forms, such that form] contains two 
command buttons "Pethagors equation" and "area of triangle" such that 
when click on command] "Pythagoras equation", form2 will be appear so in 
this form the third side of triangle will be compute with Pythagoras equation 
after enter the first and second side, and when click on "area of triangle" the 
third form displayed so that the area will be compute after entering the base 
and height. Use suitable output and input methods. 


Q5/ Write a program to display the message below after click on command 
button "run". 


? J do you want to quit? 


a 


Q6/Write a program to display the time and the date, put a suitable design. 
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Menu 

The menu is a bar at the top of the form. The standard form is 
display without menu, but the user can add it. This menu could be 
included in form using menu editor. In next section the menu editor and 
the required code will be discussed. 


Menu Editor 

To use menu there are three ways: _ 

1- Press menu icon from toolbar |. 

2- press (ctrl+E) from key board. 

3- click on: tools>Menu Editor. 

Menu editor box appears as shown below. 


Menu Editor 
Caption: |] OK 
Name: | Cancel | 


Index: | Shortcut; fonone) 
HelpContextID: | o NegotiatePosition: Jo -None + ] 


Select 
short cut 


Move item down 


Move item up 


A d d IV Enabled Iv Visible T WindowList 
Insert Delete 
Remove ... = 
Move to next item in the list Delet item 
The steps of applying menu editor box are as follows: 
To add item Use menu editor as follows 


Menu Editor 


Caption: [fle = © >A OK 
Name: fcommandd sst—i—<—S~—S Cancel 
Index: = Shortcut: — | (None) ¥ 
HelpContextID: fo NegotiatePosition; Jo-None ~| 
IT Checked \V Enabled Visible T WindowList 


¢| >| | +| Insert Delete 


—$_ —_— 


Use the menu Editor 
} Menu Editor 

Caption: fedt == —t—“‘CSC;O;™*;*;™~™~C~™ OK 
Name; — | command2 Cancel | 
Index: [ Shortcut: {None} nd 
HelpContextID: [0 = ~—NegotiatePosition: fo-None +] 


[ Checked I¥ Enabled IV Visible T WindowList 


+} >| +} +| Insert Delete 


File 


To add many items 
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Create sub Menu list 


Menu Editor 


Caption: [open ssS—~S ok 
Name; command2 Cancel 
Index: z= Shortcut; — |(None) bf 
HelpContextD: [0 -—=—=S«(NegotiatePosition: [q-None ~| 


Il Checked \¥ Enabled Visible I WindowList 


+O+) + Insert | 


file 


Create Shortcut Use & with caption and select shortcut 
Menu Editor j 
Caption: [open OK 
Name: | command2 Cancel 
Index: [ Shortcut: [cto >| 
HelpContextID: [0 —=—=—SsNegaotiatePosition: [o-none | 


Tl Checked Enabled I Visible 1 WindowList 


+| >| 4| +| Insert Delete 


Code for menu items 

Each item in menu or sub menu is considered as a command which 
takes the event click only. The user can add code for each item: 
click on item>code for that item appears on code sheet. Also code can be 
added to form: click on item >code for that item appears on code sheet. 
This is described in the following figure: 


5 Project =f OF ers el) 
= Form (fel) 


Click on item 


Example: Design a form with menu and a label with a specific title. The 
menu contains one item color with sub menu items: red, green, blue and 
exit, to color the label in red, green, blue then exit from the program. 
Sol: put labell with any caption for example (hello) 


Caption: color Create standard menu (color) from menu 
Name: command 1 editor>next 

Caption: red Add sub menu items by pressing — then enter 
Name:command2 the caption and name>next. 
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Caption: green Do the same thinks for other items>ok 
Name:command3 


Caption: blue 
Name:command4 


Caption: exit 
Name:command5 
Shortcut: ctrl+E 


Co  ~ 

| Caption: fet st sts—“—SOCS OK | 
Name: [commands Cancel | 
Index: [ Shortcut; [cre =t—<“‘«é‘iSYS 
HelpContextID: jo tsiédzds| NegotiatePosition: Jo-None +] 
Tl Checked IV Enabled IV Visible T WindowList 


+| >| 4] + Insert | Delete | 


To programming these commands click on each one to open its code 
window and write the following code: 


Private sub command2_click () 
Label1l .backcolor=vbred 
End Sub 


Private sub command3_click () 
Label1 .backcolor=vbgreen 
End Sub 


Private sub command4_click () 
Labell .backcolor=vbblue 
End Sub 


Private sub command5_click () 


End 
End Sub 
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Conditional statements 

There are two types of conditional statements: 
1- If statement 

2- Select case 


1- If statement: The comparison operations are used with conditional 
statements. 
The comparison operations are: (<, <=, >, >=, =, <>, and, or) 


There are four structures for if statement. 
a) Simple structure If.. then: 

Used for running one programming statement only if the required 
condition satisfied. 

The general form is: If condition then statement 


Example 1: write a program to enter a mark of a student then print (pass) if 


he successful. re 
Sol: 


Dim x as integer 

Private sub command1_click() 
X= cint(text1.text) 

If x>= 50 then text2.text= "pass" 
End sub 


b) If block structure: Used for running many programming statements if 
the required condition satisfied. 

The general form is: 

If condition then 

Statements 

End if 


Example 2: write a program to enter a mark of a student then print (pass) 
in size 18 if he successful. 
Sol: 
Dim x as integer 
Private sub command1_click() 
X= cint(text1.text) 
If x>= 50 then 
text2.text= "pass" 
text2.fontsize=18 
end if 
End sub 
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c) If.. Then.. Else structure: Used for running many programming 
statements if the required condition satisfied. And running another 
programming statements (after else) if the required condition not satisfied. 

The general form is: 

If condition then 

Statements 

Else 

Statements 

End if 


Example3: write a program to enter a mark of a student then print (pass) if 
he successful and print (fail) otherwise. 
Sol: 

Dim x As Integer 

Private Sub command1_click() 

x = CInt(Text1.Text) 

If x >= 50 Then 

Text2.Text = "pass" 

Else 

Text2.Text = "fail" 

End If 

End Sub 


d) If.. Then.. Elseif.. Else structure: 
Used if we have many conditions to be satisfied 


Example 4: write a program to enter a user name and display the message 
(hello) three times. The first one for (Muna), the second one for (Maha) and 
the third for any user as a guest. 
Sol: 

Dim x As String 

Private Sub command1_click() 

x = Text1.Text 

If x = "Muna" Then 

MsgBox "hello, Muna" 

Elself x = "Maha" Then 

MsgBox "hello,Maha" 


m™ Form’ 


Else = Form1 Ce) 
MsgBox "hello, guest" 

End If enter name Muna 

End Sub = 


Project! |X| 


hello, Muna 


OK 
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Example 5: Write a program to classify any entered number according to 
its sign and display the phrase (negative number) when the number is 
negative and the phrase (positive number) when the number is positive, 
otherwise display the phrase (neither positive nor negative). 

Sol: =10)x) 
Dim x As Single 
Private Sub command1_click () Se ae 
x = Val(Text1.Text) as | 
If x > 0 Then 
MsgBox "positive number" negative number 
Elself x < 0 Then 
MsgBox "negative number" 


Else 
MsgBox "neither positive nor negative" 
End If enternumber [7 
End Sub 
Nested If statement: negative number 


It can be takes the following structure: 


If condition then 
If condition then 


Statements structure2 structure | 
End if 
End if 
Note: Any structure of if structures can be used insteade of structure 1 
and 2 above. 
not || ++ n0.2 : 


Example 6: Write a program to enter two numbers and |. . wees 
compute multiplication and division operations using 
option button with display the phrase (illegal division 
operation) when the denominator is zero. 

Sol: 


Dim a, b, c As Single rot [2 m2 [5 


Private Sub command1_click() 
a= Val(Text1.Text) 
b = Val(Text2.Text) 


If Option1 .Value Then 
c=a*b no.1 [5 | 
Text3.Text = CStr(c) 


Else ay [ileoal division operation ae 
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If b <> 0 Then 
c=a/b 
Text3.Text = CStr(c) 
Else 
Text3.Text = "illegal division operation" 
End If 
End If 
End Sub 


Select statement 


Used for applying many statements depending on one variable. The 


general form is: 


Select case variable 
Case valuel 
statements 

Case value2 
Statements 


Case value n 
Statements 
Case else 
Statements 
End select 


Example 7: write a program to print the days of the week when we enter 
its number 


Sol: 


=ioix 
Dim x As Integer 


Private Sub Command1_Click() ' sued a ae 
x = CInt(Text1.Text) 
Select Case x Project! es] 
Case 1 

MsgBox ("Sunday") 
Case 2 

MsgBox ("Monday") 
Case 3 

MsgBox ("Tuesday") 
Case 4 

MsgBox ("Thursday") 
Case 5 

MsgBox ("Wednesday") 


sunday 
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Case 6 

MsgBox ("Friday") 
Case 7 

MsgBox ("Saturday") 
End Select 

End Sub 


Example 8: write a program to give the evaluation for different marks 
as follows: 


mark evaluation 
90-100 Excellent [* aay 

80-89 Very good 

70-79 |___ Good 
60-69 Medium excellent 
50-59 Pass 

0-49 Fail 


Dim x As Integer 
Private Sub Command 1_Click() {0} xj 
x = CInt(Text1.Text) 
Select Case x 


2a dja Jeol 
Case 90 To 100 
MsgBox ("excellent") 


Case 80 To 89 

MsgBox ("very good") 

Case 70 To 79 excellent 
MsgBox ("good") 

Case 60 To 69 
MsgBox ("medium") 
Case 50 To 59 
MsgBox ("pass") 
Case 0 To 49 
MsgBox ("fail") 
Case Else 

MsgBox "the range is 0-100", vbCritical, "error" 
End Select 

End Sub 
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Exercises 


Q.1/ Design a form with three menus and label with a specific title. 
The menus contain sub menus as follows: color: red, blue, green, style: 
underline, bold, italic, size: 10, 20, 30 then write the code for each 
command. 


Q.2/ Write a program to enter a value of x and compute the value of y 
where 4 at 
—-x if x<0 
Q.3/ Write a program to find the root of first degree equation. 


Q4 / write a program to enter two numbers and print the largest 
number. 


Q.5/ Write a program to enter two numbers and compute 
multiplication and division operations using check box with displaying the 
phrase (illegal division operation) when the denominator is zero. 


Q.6/ Design a form with a text box. Use select statement so that when 


user enters g, b, r and y then form colored to green, blue, red, and yellow 
respectively. 
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Loop statement: 
Visual basic supports statement to perform loops. The loops statements could 
have different structures as follows: 
1- Counter loop. 
2- Conditional loop. 


1- Counter loop: 
Loops apply programming statements for fixed number of times using counter 
(for... next) statement. 


The general form is: 
For variable = start value to end value step step value 
Statements 
Next variable 


Example1: Write a program to print (hello) five times. 


Sts fs. Formt TT 


Dim 1 as integer fala 
Private Sub Command1_Click () hello 
For i= 1 To5 ir 
Print "hello" hello 
Next i 

End Sub 


Example2: Write a program to print even numbers from 1 to 10. 

Sol: PI ici x 
Dim 1 as integer 

Private Sub Command 1_Click () 
For i= 2 To 10 step 2 

Print i 

Next i 

End Sub 


Notes: 

1-The variable's value that we use as counter must be integer value (integer, long). 
2- If we don’t determined the step value then the assumed value is 1. 

3- If the final value smallest than the initial value, then the step value must be 
negative. 


2- Conditional loop 
Loops repeat programming statements according to specific condition. There are 
two types of conditional loop: 
1- Do while 
2- Do until 


1-Do while loop: In this loop the statements will be implemented and repeated when 
ever the condition satisfied. The general form is: 
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Do while condition 


Statements 

Loop 

Example3: Write a program to print (hello) five times with its numbering using do 
while loop. 

Sol: a. Form) gTaTE! 
Dim 1 as integer hello 1 

Private Sub Command1_Click () Serine 

t= 1 hello 4 

Do while i <= 5 hello 5 

Print "hello"; i 

i=i+l 

Loop 

End Sub 


Example4: Write a program to print even numbers from 1 to 10. 
Sol: 

Dim 1 as integer 

Private Sub Command 1_Click () 
i=2 

Do while i <= 10 

Print i 

i=i+2 

Loop 

End Sub 


2-Do until loop: In this loop the statements will be implemented and repeated when 
ever the condition not satisfied, (i.e) the loop will be stopped when the condition 
satisfied. The general form is: 


Do until condition 
Statements 
Loop 


Example5: Write a program to print (hello) five times with its numbering using do 
until loop. 

Sol: 

Dim 1 as integer 

Private Sub Command1_Click () 
1=1 

Do until i > 5 

Print "hello"; i 

i=it+l 

Loop 

End Sub 
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Example6: Write a program to find the summation of undetermined number of 
positive numbers such that the program will be stopped when we enter negative 
number. 
Sol: 

Dim x, sum As Single 

Private Sub command1_click() 

sum = 0 

x = Val(InputBox("enter x", "summation")) 

Do While x >= 0 

sum = sum + x 

x = Val(InputBox("enter x", "summation ")) 


Loop 
MsgBox (CStr(sum)) 
End Sub 
lo xj) EE 8 8=—S—si 
enter x 
Cancel | 
[J 


Example7: Write a program to find the summation of the numbers from 5 to 15. 
Sol: 

Dim I, sum as integer 

Private Sub command1_click () 

sum = 0 

Fori=5 to 15 

Sum = sum +1 

Next i 

Labell.caption = "sum ="&cstr(sum) 

End Sub 


Example8: Write a program to find the summation of 10 numbers. 
Sol: 
Dim i as integer |. Form) eas] es 
Dim x, sum as double 
Private Sub command1_click () 
sum = 0 
Fori= 1 to 10 
X = val(inputbox ("enter number")) 
Sum = sum + x 
Next i 
Labell.caption = "sum="& cstr(sum) 
End Sub 


sum=8 


Running stage: 
For example if we entered the numbers: 1, 5, -1, 3, 2, 0, -1, 3, 0, -4 then sum=8 
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Example9: Write a program to find the average of n numbers. 


Sol: 
Dim 1 as integer 
Dim x, sum, av as Double Form) = TT Pe 


Private Sub command1_click () 


i= 1:sum=0 enter n | 
n = cint (text1.text) 


Do while i <= n Ss [ 
X = val(inputbox ("enter number")) : 


Sum = sum + x 
i=it+l 

Loop 

Av = sum/n 
Text2.text = cstr(av) 
End Sub 


Example10: Write a program to print multipliers of 5 (from 5 to 50) 


Sol: 
fe Fomt TST 


Dim i as integer 
Private Sub Command1_Click () 


10 
i= : 
Do until 1 > 50 25 
Print i = 
i=1+5 rt 
Loop 50 
End Sub 


Example11: write a program to find the average of numbers that dividable by 3 (with 
out remainder) from 3 to 99. 
Sol: 
Dim I, n, sum as integer 
Dim av as Double 
Private Sub command1_click () 
i=3sn=0 
sum = 0 
Do while i <= 99 
Sum = sum +1 
V=i43 
n=n+1 
Loop 
Av = sum/n 
Print "av ="; av 
End Sub 
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Example12: write a program to print (welcome) ten times, the first one with the 
ordinary size and color. Then make the color changed and the size bigger at each 


ee alo x! 
Sol: welcome 

Dim i As Integer viet 
Private Sub Command1_Click() welcome 
Print "welcome" welcome 
Fori=1To9 welcome 
FontSize = 10 +1 welcome 
ForeColor = QBColor(i) 

Print "welcome" welcome 
Next i welcome 
End Sub 


Series: 
To compute the value of series, we use suitable loop statements according to the 
boundaries (limits) of each series. 


Example13: Find 
Sum=1+x+x?+x°+...4+x", where x is an integer. 
Sol: 


Dim I, n, x, sum as integer 
Private Sub command1_click () arree k 
sum = | 


n=cint(text1.text) enter x I 


x=val(text2.text) 

Fori=1Ton rae [‘ 

Sum = sum +x‘i 
Next 1 
Text3.text=cstr(sum) 
End Sub 


Nested loop: 

The nested loops are the loops that are placed inside each other. The most inner 
loop will be executed first, then the outer ones. These loops should neither intersect, 
nor have the same index. As follows: 


Fori=1Ton 
Forj=1Tom 
Statements 
Next j 
Next 1 
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Example14: write a program to print the multiplication table. 
Sol: 

Dim I, j As Integer 

Private Sub command1_click() 
For I= 1 To 10 

For j = 1 To 10 

p=I*j 

Print I; "*"; j; "=" p, 

Next j 

Print 

Next I 

End Sub 


ia. Form] 


im. Form 


Sol: 

Dim I, j As Integer 

Private Sub command1_click() 
For l= 1 To 5 

Forj=1 Toi 

Print j; 

Next j 

Print 

Next I 

End Sub 


a3 


Exercises: 
Q.1: write a program to find n factorial (n!) 


Q.2: write a program to enter n numbers and find the average of negative numbers 
only. 


Q.3: write a program to print the multipliers of 6 from 12 to 60, using do while first, 
then use do until loop secondly. 


Q.4: compute the value of y where: 


| ee eee n 
Veale ats eae tS 
x xX Xx Xx 


Q.5: Find the odd numbers from | to 100. 


Q.6: Write a program to generate the numbers as follows: 
ae Bo) 


Q.7: How many multipliers of 3 are there between 1 and 100? Write a program to find 
that. 
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